perm filename NAMER[AP,SYS] blob sn#000454 filedate 1972-08-02 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	PROGRAM TO START UP FILER.
 00003 ENDMK
⊗;
;PROGRAM TO START UP FILER.

	TITLE	NAMER

AC←1

SWAPBK:	SIXBIT	/DSK/
	SIXBIT	/FILER/
	SIXBIT	/DMP/
	0
	SIXBIT	/ APSYS/

NAMER:	MOVEI	AC,SWAPBK
	CALL	AC,[SIXBIT /SWAP/]

	END	NAMER